home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilreen / dmplas / dmplas.exe / DLTEST-1.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-08-15  |  4.4 KB  |  97 lines
  1. 10 FILE$="DLTEST-1.PRN"
  2. 20 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27)
  3. 30 PRINT CRLF$:PRINT "     Creating ";FILE$;" - Please wait ";
  4. 40 OPEN "O",#1,FILE$
  5. 45 PRINT#1, ESC$;"@";
  6. 50 PRINT#1,"     DLTEST-1  Print Pitch, Style, and Special Effect Commands"
  7. 60 PRINT#1,"     Current (default) STYLE and pitch   12345678901234567890";CRLF$
  8. 70 PRINT#1,"----- Print Pitch Commands -----"
  9. 80 PRINT#1,ESC$;"P";
  10. 90 PRINT#1,"ESC 'P'   Set pitch to 10 cpi 12345678901234567890"
  11. 100 PRINT#1,"ESC 'W1' ";ESC$;"W1 Expands to 5 cpi 12345 until"
  12. 110 PRINT#1,ESC$;"W0";
  13. 120 PRINT#1,"ESC 'W0'  Returns to 10 cpi 12345678901234567890"
  14. 130 PRINT#1,"SO or ESC SO ";CHR$(14);"Expands rest of current line"
  15. 140 PRINT#1,"               Then returns to current pitch"
  16. 150 PRINT#1,CRLF$;
  17. 160 PRINT#1,ESC$;":";
  18. 170 PRINT#1,"ESC ':'   Set pitch to 12 cpi 12345678901234567890 (some printers)"
  19. 180 PRINT#1,"ESC 'W1' ";ESC$;"W1 Expands to 6 cpi 123456 until"
  20. 190 PRINT#1,ESC$;"W0";
  21. 200 PRINT#1,"ESC 'W0'  Returns to 12 cpi 12345678901234567890"
  22. 210 PRINT#1,"SO or ESC SO  ";ESC$;CHR$(14);"Expands rest of current line"
  23. 220 PRINT#1,"               Then returns to current pitch"
  24. 230 PRINT#1,CRLF$;
  25. 240 PRINT#1,ESC$;"P";
  26. 250 PRINT#1,"ESC 'P' Set pitch to 10 cpi 12345678901234567890"
  27. 260 PRINT#1,"SI or ESC SI ";ESC$;CHR$(15);" Condenses 10 cpi to 16.66 cpi 12345678901234567890"
  28. 270 PRINT#1,CHR$(18);
  29. 280 PRINT#1,"DC2   Restores 10 cpi 12345678901234567890"
  30. 290 PRINT#1,CRLF$;
  31. 300 PRINT#1,ESC$;"M";
  32. 310 PRINT#1,"ESC 'M' Set pitch to 12 cpi 12345678901234567890"
  33. 320 PRINT#1,"SI or ESC SI ";ESC$;CHR$(15);" Condenses 12 cpi to 16.66 cpi (or 20 cpi on some printers) 12345678901234567890"
  34. 330 PRINT#1,CHR$(18);
  35. 340 PRINT#1,"DC2   Restores 12 cpi 12345678901234567890"
  36. 350 PRINT#1,CRLF$;
  37. 360 PRINT#1,ESC$;"P";
  38. 370 PRINT#1,"ESC 'P' Set pitch to 10 cpi 12345678901234567890"
  39. 380 PRINT#1,"SI or ESC SI";CHR$(15);" Condenses 10 cpi to 16.66 cpi 12345678901234567890"
  40. 390 PRINT#1,"ESC 'W1' ";ESC$;"W1 Expands to 8.5 cpi 1234567890"
  41. 400 PRINT#1,ESC$;"W0";
  42. 410 PRINT#1,"ESC 'W0'  Returns to 16.66 cpi 12345678901234567890"
  43. 420 PRINT#1,CHR$(18);
  44. 430 PRINT#1,"DC2   Restores 10 cpi 12345678901234567890"
  45. 440 PRINT#1,CRLF$;
  46. 450 PRINT#1,ESC$;"M";
  47. 460 PRINT#1,"ESC 'M' Sets pitch to 12 cpi 12345678901234567890"
  48. 470 PRINT#1,"SI or ESC SI";CHR$(15);" Condenses 12 cpi to 16.66 cpi (or 20 cpi on some printers) 12345678901234567890"
  49. 480 PRINT#1,"ESC 'W1' ";ESC$;"W1 Expands to 8.5 (or 10) cpi 1234567890"
  50. 490 PRINT#1,ESC$;"W0";
  51. 500 PRINT#1,"ESC 'W0'  Returns to 16.66 (or 20) cpi 12345678901234567890"
  52. 510 PRINT#1,CHR$(18);
  53. 520 PRINT#1,"DC2  Restores 12 cpi 12345678901234567890"
  54. 530 PRINT#1,CRLF$;
  55. 540 PRINT#1,ESC$;"P";ESC$;"g";
  56. 550 PRINT#1,"ESC 'g'  Sets pitch to 15 cpi 12345678901234567890 (some printers)"
  57. 560 PRINT#1,ESC$;"P";
  58. 570 PRINT#1,"ESC 'P'  Back to  10 cpi 12345678901234567890"
  59. 580 PRINT#1,CRLF$;
  60. 590 PRINT#1,"----- Print Style Commands -----"
  61. 600 PRINT#1,"ESC '4'";ESC$;"4 Prints ITALIC style characters"
  62. 610 PRINT#1,ESC$;"5";
  63. 620 PRINT#1,"ESC '5' Restores ROMAN style characters"
  64. 630 PRINT#1,"ESC 'E'";ESC$;"E Selects EMPHASIZED printing"
  65. 640 PRINT#1,ESC$;"F";
  66. 650 PRINT#1,"ESC 'F' Cancels EMPHASIZED printing"
  67. 660 PRINT#1,"ESC 'G'";ESC$;"G Selects BOLDFACED printing"
  68. 670 PRINT#1,ESC$;"H";
  69. 680 PRINT#1,"ESC 'H' Cancels BOLDFACED printing"
  70. 690 PRINT#1,"ESC 'p1' ";ESC$;"p1 Selects proportional pitch"
  71. 700 PRINT#1,ESC$;"p0";
  72. 710 PRINT#1,"ESC 'p0'  Cancels proportional pitch"
  73. 720 PRINT#1,CRLF$;
  74. 730 PRINT#1,"----- Special Effect Commands -----"
  75. 740 PRINT#1,"ESC '-1' ";ESC$;"-1Enables underlining until"
  76. 750 PRINT#1,ESC$;"-0";
  77. 760 PRINT#1,"ESC '-0'  cancels underlining"
  78. 770 PRINT#1,CRLF$;
  79. 780 PRINT#1,"ESC 'S0' Enables";ESC$;"S0*Superscript until";
  80. 790 PRINT#1,ESC$;"T";
  81. 800 PRINT#1,"ESC 'T' cancels it"
  82. 810 PRINT#1,"ESC 'S1' Enables";ESC$;"S1*Subscript until";
  83. 820 PRINT#1,ESC$;"T";
  84. 830 PRINT#1,"ESC 'T' cancels it"
  85. 840 PRINT#1,CRLF$;
  86. 850 PRINT#1,ESC$;"M At 12 cpi (ESC 'M') it looks like this"
  87. 860 PRINT#1,"ESC 'S0' Enables";ESC$;"S0*Superscript until";
  88. 870 PRINT#1,ESC$;"T";
  89. 880 PRINT#1,"ESC 'T' cancels it"
  90. 890 PRINT#1,"ESC 'S1' Enables";ESC$;"S1*Subscript until";
  91. 900 PRINT#1,ESC$;"T";
  92. 910 PRINT#1,"ESC 'T' cancels it"
  93. 920 PRINT#1, CHR$(12);ESC$;"@";
  94. 930 CLOSE #1
  95. 940 SYSTEM
  96. 950 END
  97.